home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CIALST13.ZIP / CIALAST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-02-01  |  3KB  |  224 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     String   STRING001
  29.     String   STRING002
  30.     String   STRING003
  31.     String   STRING004
  32.     String   STRING005
  33.     String   STRING006
  34.     String   STRING007
  35.     String   STRING008
  36.     String   STRING009
  37.     String   STRING010
  38.     String   STRING011
  39.     String   STRING012
  40.     String   TSTRING013(21)
  41.     String   TSTRING014(21)
  42.     String   TSTRING015(21)
  43.     String   TSTRING016(21)
  44.     String   TSTRING017(21)
  45.     String   TSTRING018(21)
  46.  
  47. ;------------------------------------------------------------------------------
  48.  
  49.     FOpen 1, PPEPath() + "CIALAST.CNF", 0, 0
  50.     FDefIn 1
  51.     FDGet STRING001
  52.     FDGet STRING002
  53.     FDGet STRING003
  54.     FDGet INTEGER002
  55.     FDGet INTEGER003
  56.     FDGet INTEGER004
  57.     FDGet STRING007
  58.     FDGet INTEGER005
  59.     FDGet STRING008
  60.     FDGet INTEGER008
  61.     FDGet STRING011
  62.     FDGet INTEGER006
  63.     FDGet STRING009
  64.     FDGet INTEGER007
  65.     FDGet STRING010
  66.     FDGet INTEGER009
  67.     FDGet STRING012
  68.     FClose 1
  69.     STRING004 = TokenStr()
  70.     Tokenize STRING004
  71.     GetToken STRING005
  72.     If (STRING005 == "/192") Goto LABEL001
  73.     Print "@POFF@"
  74.     Newline
  75.     Print "@X08CiA Last Callers v1.3 by Dark Jester"
  76.     AnsiPos 1, GetY()
  77.     Print "@X01CiA Last Callers v1.3 by Dark Jester"
  78.     AnsiPos 1, GetY()
  79.     Print "@X09CiA Last Callers v1.3 by Dark Jester@X07"
  80.     AnsiPos 1, GetY()
  81.     Print "@X0BCiA Last Callers v1.3 by Dark Jester@X07"
  82.     AnsiPos 1, GetY()
  83.     Print "@X0FCiA Last Callers v1.3 by Dark Jester@X07"
  84.     DispFile PPEPath() + "CIALAST.PCB", 0
  85.     FOpen 1, PPEPath() + "CIALAST.DAT", 0, 0
  86.     For INTEGER001 = 1 To INTEGER002
  87.         FDGet TSTRING013(INTEGER001)
  88.         FDGet TSTRING014(INTEGER001)
  89.         FDGet TSTRING018(INTEGER001)
  90.         FDGet TSTRING015(INTEGER001)
  91.         FDGet TSTRING016(INTEGER001)
  92.         FDGet TSTRING017(INTEGER001)
  93.         AnsiPos INTEGER004, INTEGER003 + INTEGER001 - 1
  94.         Print STRING007 + TSTRING013(INTEGER001)
  95.         AnsiPos INTEGER005, INTEGER003 + INTEGER001 - 1
  96.         Print STRING008 + TSTRING014(INTEGER001)
  97.         AnsiPos INTEGER008, INTEGER003 + INTEGER001 - 1
  98.         Print STRING011 + TSTRING018(INTEGER001)
  99.         AnsiPos INTEGER006, INTEGER003 + INTEGER001 - 1
  100.         Print STRING009 + TSTRING015(INTEGER001)
  101.         AnsiPos INTEGER007, INTEGER003 + INTEGER001 - 1
  102.         Print STRING010 + TSTRING016(INTEGER001)
  103.         AnsiPos INTEGER009, INTEGER003 + INTEGER001 - 1
  104.         Print STRING012 + TSTRING017(INTEGER001)
  105.     Next
  106.     FClose 1
  107.     AnsiPos 1, 22
  108.     End
  109.     :LABEL001
  110.     GetUser
  111.     If (((U_Name() == "SYSOP") || (U_Name() == STRING001)) && (Upper(STRING002) == "NO")) End
  112.     If (OnLocal() && (Upper(STRING003) == "NO")) End
  113.     STRING006 = PPEPath() + "CIALAST.DAT"
  114.     If (Exist(STRING006)) Then
  115.         FOpen 1, STRING006, 0, 3
  116.         For INTEGER001 = 1 To INTEGER002
  117.             FDGet TSTRING013(INTEGER001)
  118.             FDGet TSTRING014(INTEGER001)
  119.             FDGet TSTRING018(INTEGER001)
  120.             FDGet TSTRING015(INTEGER001)
  121.             FDGet TSTRING016(INTEGER001)
  122.             FDGet TSTRING017(INTEGER001)
  123.         Next
  124.         FClose 1
  125.     Else
  126.         For INTEGER001 = 1 To INTEGER002
  127.             TSTRING013(INTEGER001) = ""
  128.             TSTRING014(INTEGER001) = ""
  129.             TSTRING018(INTEGER001) = ""
  130.             TSTRING015(INTEGER001) = ""
  131.             TSTRING016(INTEGER001) = ""
  132.             TSTRING017(INTEGER001) = ""
  133.         Next
  134.     Endif
  135.     INTEGER001 = INTEGER002 + 1
  136.     TSTRING013(INTEGER001) = U_Name()
  137.     TSTRING014(INTEGER001) = StripAtx(U_City)
  138.     TSTRING018(INTEGER001) = String(CallNum())
  139.     TSTRING015(INTEGER001) = String(Carrier())
  140.     TSTRING016(INTEGER001) = String(MinOn())
  141.     TSTRING017(INTEGER001) = String(PcbNode())
  142.     Delete STRING006
  143.     FCreate 1, STRING006, 1, 3
  144.     FDefOut 1
  145.     For INTEGER001 = 2 To INTEGER002 + 1
  146.         FDPutLn TSTRING013(INTEGER001)
  147.         FDPutLn TSTRING014(INTEGER001)
  148.         FDPutLn TSTRING018(INTEGER001)
  149.         FDPutLn TSTRING015(INTEGER001)
  150.         FDPutLn TSTRING016(INTEGER001)
  151.         FDPutLn TSTRING017(INTEGER001)
  152.     Next
  153.     FClose 1
  154.     End
  155.  
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Usage report (before postprocessing)
  159. ;
  160. ; ■ Statements used :
  161. ;
  162. ;    4       End
  163. ;    11      Goto 
  164. ;    23      Let 
  165. ;    12      Print 
  166. ;    8       If 
  167. ;    1       DispFile 
  168. ;    1       FCreate 
  169. ;    3       FOpen 
  170. ;    4       FClose 
  171. ;    1       GetUser
  172. ;    1       Delete 
  173. ;    1       Newline
  174. ;    1       Tokenize 
  175. ;    1       GetToken 
  176. ;    11      AnsiPos 
  177. ;    1       FDefIn 
  178. ;    1       FDefOut 
  179. ;    29      FDGet 
  180. ;    6       FDPutLn 
  181. ;
  182. ;
  183. ; ■ Functions used :
  184. ;
  185. ;    23      +
  186. ;    6       -
  187. ;    5       ==
  188. ;    4       <
  189. ;    4       <=
  190. ;    8       >=
  191. ;    5       !
  192. ;    10      &&
  193. ;    5       ||
  194. ;    2       Upper()
  195. ;    3       U_Name()
  196. ;    1       StripAtx()
  197. ;    4       String()
  198. ;    4       PPEPath()
  199. ;    1       PcbNode()
  200. ;    1       OnLocal()
  201. ;    1       MinOn()
  202. ;    1       Exist()
  203. ;    1       Carrier()
  204. ;    1       TokenStr()
  205. ;    4       GetY()
  206. ;    1       CallNum()
  207. ;
  208. ;------------------------------------------------------------------------------
  209. ;
  210. ; Analysis flags : No flag
  211. ;
  212. ;------------------------------------------------------------------------------
  213. ;
  214. ; Postprocessing report
  215. ;
  216. ;    4       For/Next
  217. ;    0       While/EndWhile
  218. ;    1       If/Then or If/Then/Else
  219. ;    0       Select Case
  220. ;
  221. ;------------------------------------------------------------------------------
  222. ;                 AEGiS Corp - Break the routines, code against the machines!
  223. ;------------------------------------------------------------------------------
  224.